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PURPOSE 

The Symbolic Program Editor provides a means for generating a modified 
version of a Raytheon 703 symbolic language program without repunching 
the entire program. 

Once a user has determined what changes need to be made to a program 
he relates those changes to the editor in the form of specially formatted 
instructions called directives. Only the changes need to be specified -- 
unchanged instructions will be punched exactly as they appear in the 
old version of the program. 

Three types of changes may be made to a program. 

1) Statements may be inserted between existing lines. 

2) Existing lines may be deleted. 

3) Statements may be input to replace existing lines. 

A program is modified in two phases. During the first phase, which is 
called "directive time" all directives and new statements are input. During 
the second (edit) phase the old source text is read in, it is changed as 
specified by the directives which have been input, and a new source pro- 
gram is then punched. 

SYMEDB is designed to edit SYM I, SYM II or 703 FORTRAN IV source 
paper tapes. Off-line tapes must be prepared per the alphabetic for- 
mat set forth in the INPUT /OUTPUT SOFTWARE section of the reference 
manual. Tapes prepared by SYM I/PREP are in the correct format for 
editing. 
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OPERATION OF THE EDITOR 



The Symbolic Editor operates under the control of the XRAY EXEC 
monitor. The editor is distributed in the form of an absolute object 
tape and is loaded using the XRAY directive "AL" (see AL directive, 
XRAY EXEC Manual). 

Once loaded, control is transferred to the editor by the XRAY di- 
rective "ET". The editor will respond by printing 'BE' (begin 
editor) on the LIST device and will wait for directives and new state- 
ments to be input on the SYSI device. These two logical units (LIST 
and SYSI) are normally assigned to the teletype, however, they may 
be reassigned through XRAY directives (see IO directive, XRAY 
EXEC Manual). 

If core is exhausted at directive time the editor will print 'OV (over- 
flow) on the LIST device and control will be returned to XRAY. If 
an incorrect editor directive is input or if an incorrect sequence of 
directives and statements is used, the editor will respond by printing 
'Q?' on the LIST device. All input back to and including the last 
directive will be deleted and the editor will wait for another directive. 

After all directives for insertions, deletions, and replacements have 
been input the directive "+E" is issued. This directive signifies the 
end of directive time and the start of the edit phase. The editor will 
then go to the PRIN device to begin inputting the symbolic program 
being edited. 

Normally, reading of the source language text will continue until the 
END statement is read; however, if core is exhausted before the END 
statement is reached, the editor will stop inputting and begin editing the 
portion of the program which has been read. 

If the input device (PRIN) is the teletype reader, it must be stopped 
manually. Stopping the reader quickly is essential because after 
editing is complete the tape must be restarted without missing any 
statements (see the section on PAPER TAPE FORMAT). 

When reading stops (whether because core was exhausted or because 
an END statement was reached) editing will begin. When editing is 
complete the computer will pause with bit 14 on in the ACR. This is 
the signal to turn the punch on. Clearing the ACR will cause the 
punching of output statements to occur on the BOUT unit. 
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After punching the computer will pause again. This time with bits 14 
and 15 on. This is the signal to turn the punch off. Clearing the ACR 
now will allow the computer to continue. 

If editing was initiated by exhaustion of core, the editor will go back to 
read more source data. As soon as the reader is turned on the editor 
will resume the input of source text. 

If editing was initiated by reading an END statement in the source 
text, the editor will return to look for more directives. At this time 
the editor directive "+X", may be input to return to the XRAY EXEC 
monitor, or additional insertions, deletions, and replacements may 
be specified for the edit of another source program. 

The symbolic editor can use for its input devices (PRIN) all paper 
tape devices, magnetic tape and a card reader. For its output devices 
it can use all paper tape devices, magnetic tape and a card punch. If 
the output device is not the teletype, that is, if the BOUT and LIST 
device are not the same, listing will occur on the list device and may 
be suppressed by setting sense switch two true. 

DESCRIPTION OF SYMBOLIC EDITOR DIRECTIVES 

The following general statements apply to all Symbolic Editor directives: 

1) They must be preceded by a line feed (LF, 8A) and followed by 
a carriage return (C/R, 8D) 

2) They must begin with a plus sign (+, AB) 

3) All characters in a directive line are ignored after the first 
blank encountered. (Thus, the directive line may contain a 
comments field if it is separated from the directive by a blank) 

These general statements apply to the symbolic source statements 
which are typed in with the directives: 

1) They must be preceded by a line feed and followed by a carriage 
return. 

2) They must not begin with a plus sign. (The editor uses + to 
identify an editor directive. 

3) They must be no more than 54 characters long. (All additional 
characters will be ignored. 
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INSERTION 

This directive is used to insert statements into the program. The 
format is : 

+M 

k 



s i 

where: S, , S ? . . . S. are the statements to be inserted following 
line M. 

To insert a halt instruction between lines 4 and 5: 

+4 

HLT 

DELETION 

This directive deletes the specified lines from the old source. 

The format is: 

+M, N 

where lines M to N, inclusively, are to be deleted. To delete 
lines 7, 8, 9 and 10: 

+7, 10 

REPLACEMENT 

This directive replaces the specified lines in the old source text 
with the statements typed in. 

The format is: 

+M, N 

S- 



S l 



'Z 



s. 

1 
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where M, N are the numbers of the first and last lines to be 

replaced 
S. , S^. . . S^ are the statements which will replace the lines 
specified. 

To replace lines 4 and 5 by three data statements: 



+4, 5 



DATA 


10 


DATA 


15 


DATA 


X'7' 



Note that deletion is actually a special case of replacement. Deleting 
is actually replacing the specified lines with no instructions. 

EDIT 



This directive is used to signal the Symbolic Editor that all insertions, 
deletions and replacements have been completed and editing should 
begin. 



The format is: 



+E 



After this directive is input the editor will begin reading the source 
text which is to be modified. 

RETURN TO XRAY 

This directive is used to signify that all symbolic editing is complete. 

The format is: 



+X 



The editor will return control to the XRAY EXEC monitor. 
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PAPER TAPE FORMAT 



The paper tape containing source text to be edited by the Symbolic 
Editor should be in the standard SYM I/PREP format (see SYM I 
PREP Manual). The output tape generated by the editor will also 
be in this format. 

The format is as follows: 





b 






Line 


1 


L 




No. 


a 




Statement 


(i-D 


n 
k 


F 


i 





b 






Line 


1 


L 




No. 


a 




Statement 


(i) 


n 

k 


F 


i+1 



Statement _ T ,, .... . - ._.-.„.„ .. ,_ 

Null „ . Null 

l-l 

R k R 

Since the editor uses th : I/O MONITOR for input and output, each 
line must start with a line feed. It 'g tor this reason that care must 
be taken when the editor stops reading paper tape on the teletype 
because core was full. 

If the editor stops inputting with line i-1, it will already have read 
the carriage return that follows line i-1. 

If the tape is being read from the teletype, the reader will continue 
to run, and the teletype keyboard will begin to chatter. This is a 
signal that the information is not being read into core. At this point 
the reader must be turned off manually. 

If possible the reader should be turned off within the next seven 
character (3 null, 3 Line No. , and 1 blank). If this is done, when 
the reader is turned on again to read statement i, it will be able to 
read the line feed preceding statement i. 

If the reader is allowed to go more than 7 characters, when it is turned 
on again it will not read a line feed until the one preceding statement 
i+1. Thus, statement i will have been totally ignored. 

To read statement i in this case the tape must be manually repositioned 
into the seven character "gap" preceding statement i, before the 
reader is turned on. 
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OPERATING INSTRUCTIONS 

1) Load Symbolic Editor with XRAY "AL" directive 

2) Type "ET"; Editor will type 'BE' 

3) Input directives and statements for addition, deletion, and 
replacement. 

4) Type "+E" to signify end of directive time 

5) Turn on teletype reader 

6) When teletype chatters turn reader off immediately. 

7) When computer halts (with bit 14 on) turn punch on. 

8) Clear ACR to continue. 

9) When computer halts (with bits 14 and 15 on) turn teletype punch 
off. 

10) If END statement has not been read, check to see paper tape 
is positioned correctly. 

11) Clear ACR to continue. 

12) a. Return to instruction 5 if END statement has not been reached. 

b. Return to instruction 3 if another program is to be edited. 

c. Type M +X" if return to XRAY is desired. 

Standard systems (Standard I/O Monitor) will load and execute SYMEDB 
with the ":AL" directive. This removes the necessity of step 2) in the 
above operating instructions. 

If the teletype is not used for source input and output all steps in the 
operating instructions concerning the ACR and the turning on and off of 
the reader and punch may be ignored. 

EXAMPLE OF PROGRAM MODIFICATION 

On the following page is a sample program before and after modification 
along with the Symbolic Editor directives to make the modifications. 

Figure 1 is a listing of the program which is to be modified. The 
changes to be made have been typed in the right hand column (similar 
to the way a programmer would pencil changes onto a listing). 

Figure 2 is a copy of the directives that were input on the teletype to 
make the modifications. 

Figure 3 is a listing of the new version of the program with the changes 
incorporated. 



390941C 



5 LINKER PROGRAM Page 8 

SET A FIT ON I " T U E 
OCR AND I'.'ATCH IT GO. 



1 ORIG 22 

2 bi>* C-#T {STRT LUX CNT 

3 JM? $-1 L DXS 1 

4 LDX CNT 

5 DXS X'3F' 
€ SRC 1 
7 



C4 



STX CNT 

9 J^ 22 JMP STRT 

10 CNT D X'7000' 

END 

Figure 1 



ET 
RE 
+0 

* RLINKtR PRC3RAP1 

* SET A BIT ON II N THE 

* ACR A ,-J L WATCH IT GO. 
+2 , 2 

STRT LDX CNT 

DXS 1 
-7,7 

J.-"i STRT 
+E 

RE 



Figure 2 



1 


* 


RLIi 


.K 


£R PROGRAM 


". 


* 




S 


11 A HIT Oiv IN THE 


5 


ye 




ACR AND WATCH IT GC. 


Zj 




o;:i; 




22 


3 


STRT 


LDX 




CNT 


,c 




DXS 




1 


7 




j;-i D 




".-1 


~ 




L Z X 




CI^T 







DXS 




X'3F' 


1C 




SRC 




1 


1 1 




STX 




CNT 


l? 








STP:T 


15 


CNT 


D 
E?vD 




X'70C0' 



Figure 3 
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SUBROUTINES USED BY SYMBOLIC EDITOR: 



SORD reads both edit record from PRIN and source records from BIN 

GNC gets next character in input buffer 

ISDG is character digit? 

PNUM converts ASCII to binary 

ISBK is character blank? 

ISEN is record an END record? 

COMS compresses text and strings in core. 

DEBK skips through blanks in read buffer 

PAUS pauses with code in ACR 

DCOM de-compresses text in core and moves it to punch buffer 

PO punch routine 

MOVE moves bytes any where in core 

RIO puts statement numbers in punch buffer 

RMIO converts binary to ASCII 
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READ AND PROCESS EDIT DIRECTIVES 




OUTPUT 

•BE' FOR 

BEGIN EDIT 



( ORO ) 




•PNUM' 

CONVERT TO 

BINARY 




SET THE DBIG 

POINTER TO THE 

1st EMPTY LOCATION 

AFTER THE EDITOR 



SET STGEQUAL TO 
DBIG 




QRO 




NO 



/ RETURN TO 
I X-RAY 



FOGT 



NO 



OUTPUT 
'OV (OVERFLOW} 



N10 



INCREMENT 
STG 



•GNC 
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YES 



QRO 




QRO 



NO 




SET COMMA 
TOGGLE ON 



I 




Nl 



'GNC' 

' GET A CHARACTERN 



+n = 2 
+n, m = 3 




PUT CONVERTERED 
NUMBER IN 2nd 
WORD OF STRING 



INCREMENT 
STG 



•ISBK' 

IS NEXT CHARACTER 
BLANK 



YES 



N2 



COMPUTE 
TYPE OF 
DIRECTIVE 



PUT IT, AND CODE 
FOR BEGINNING OF 
DIRECTIVE AT BEGIN 
NING OF STRING 



N3 



•SORD' 

READ ANOTHER 
DIRECTIVE 



•GNC* 
GET A CHARACTER' 




YES 



'ISEN' 

IS IT END 

RECORD? 



iNO 



'COMS' 

COMPRESS AND 
STRING 



SET ON 

COMMA TOGGLE 
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ZERO THE LINK 
CELL, THIS IS THE 
LASTRECORD IN 
THIS STRING 



I 



UPSPACE DBIG 
POINTER 



I 



RESET COMMA 
TOGGLE 
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INPUT SOURCE TEXT 



POINT STGT, AND 

STG TO NEXT 

AVAILABLE CELL 

AFTER 

DIRECTIVES 



I 



SET LOWER RECORD 
COUNTER, SDKT, 
AND UPPER 
COUNTER, SUKT TO 
ZERO 




/ 'COMS' 
( COMPRESS AND 
\ STRING IN CORE 
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EDIT 



ZERO THE LAST 
LINK CELL OF 
SOURCE TEXT 



INDEX REGISTER SET 
TO STGS, THE BEGIN- 
NING OF THE DIRECT 

TIVE STRING 




© 



RESET REPLACE 
AND INSERT 
FLAGS 



NO 



GET THE M, OR 
HIGH REFERENCE 
PUT IN HIGH 






YES 



CK2 




INCREMENT POINTER 



CK1 



GET 
POINT ER.(IXR) 



POINT BCP TO 
REPLACEMENT 
TEXT 




NO 



© 



NO 




SET INSERT 
PLAG. IFLG 



ZERO HIGH 



P^INT BCP 

TO INSERT 
TEXT 



SET 
RFLAG 



MAKE THE NEW 
TEXT ADDRESS STGT, 
WHICH WILL BE THE 
BEGINNING AT OUT- 
PUT TIME 



G4 



YES 




GIN 



DCR IS THE 
POINTER TO 
EACH LINK 
CELL 
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START AT BEGIN- 
NING OF SOURCE 
TEXT (STGT) AND 
LOOK FOR 'LOW 
NUMBERED RECORD 




THIS IS THE CASE 

WHERE THE LOW 
REFERENCE HAS 

ALREADY BEEN 
PUNCHED OUT WITH 
THE PREVIOUS CORE 
LOAD ALONG WITH 

ANY REPLACEMENT 

STATEMENTS 



NO 



FOLLOW STRING UN 
TIL HIGH IS FOUND. 
THIS IS BEGINNING OI 
THIS CORE LOAD 




FOLLOW 
STRING 



YES 



REMEMBER 
THAT LINK 
IN STG 



NO 




NO 



LINK SOURCE 
TEXT TO INSERT 
TEXT 



ERROR, TRYING 
TO INSERT AFTER 
DELETED STATE- 
MENT NUMBER 



( CK2 ) 





NO 



THIS IS A DELETE 
WHERE ALL SOURCE 
IS NOT IN CORE 



FOLLOW SOURCE 
STRING TO HIGH, 
DELETE IT 



DELETE TO END OF 
SOURCE STRING 





G4 



FOLLOW INSERT 
TEXT STRINGS TO 

END. LINK BACK TO 

SOURCE TEXT 




NO, OUT OF RANGE 



FOLLOW SOURCE 
STRING TO HIGH, 
LINK TO REPLACE- 
MENT TEXT 




CK1 



LINK REPLACEMENT 
TEXT TO END OF 
SOURCE STRING 



G8 
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PUNCH OUT 



POUT 



'PAUS 1 TURN ON 
PUNCH 



SET SPECIAL 
FORMAT OUTPUT 
BIT 




NO 



ZERO STATEMENT 
COUNTER 



TURN OFF 1 ST 
SWITCH 




PUNCH LEADER 



PUNCH A 

CARRIAGE 

RETURN 




REMEMBER 
VALUE IN 
STG 



CLEAR END 
RECORD SWITCH, 
ERSW 




BLANK THE STATE- 
MENT COUNTER 
BUFFER 



PICKUP BEGINNING 
OF TEXT TO STGT 
STG 



STG IS OUR 

POINTER 




-/ GAR J 



FINE 
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POINT XSV TO TEXT 
IN THIS STRING 



I 



FILL PUNCH BUFFER 
WITH BLANKS 



!DCOM'. DE- COMPRESS 
TEXT, PUT IN BUFFER, PUNCH " 
AT END OF RECORD 





YES 



'PO' 
PUNCH BUFFER 



DONE 



WRITE EOF, 
PUNCH LEADER, j 
REWIND 



SET POINTERS TO 

READ IN MORE 

SOURCE 



'PAUS' TO TURN- 
OFF PUNCH 



'PAUS' TO TURN 
OFF PUNCH 



TURN OFF HIGH 
SPEED PUNCH 



RESET; END RECORD 
SWITCH, SPECIAL 
FORMAT BIT 



'RESET' 



TURN OFF HIGH 
SPEED PUNCH 



STRT 
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COMPRESS BLANKS 



COMS 



STG POINTS TO 
NEXT LOCATION 
AVAILABLE 



z:t 



PUT STATEMENT 
NUMBER IN ITS 
CELL 



COMPUTE BYTE 
ADDRESS OF STG 
+ 1 FOR 'MOVE 
COMMAND 



COMPUTE BYTE 
ADDRESS OF BCP 
(IN-BUFFER) FOR 
MOVE COMMAND 



-**- 



PICK-UP CHARACTER 
FROM IN-BUFFER 




YES 



YES 



PKUP 



SET ERSW 



COMPUTE LAST 
GROUP TO MOVE 



PSET 



SAVE CHARACTER 
COUNT 



-1 



INC IXR TO 

COUNT 
BLANKS 




IS 
NEXT yES 

'CHARACTER END 
OF BUFFER. 




NO 



SAVE LOCATION 
OF THIS 
CHARACTER 
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COMPUTE NUMBER 
OF BLANKS 



EXT 



EXTR 




YES 



PUT CODED BLANK 
IN BUFFER 



COMPUTE NUMBER 
OF CHARACTERS 
AND BLANKS TO 
MOVE TO STORAGE 



INSERT MAXIMUM 
BLANK COUNT 
CODE INTO BUFFER 



E 




IE 



PUT IN 'MOVE' 
COMMAND 



COMPUTE LEFT- 
OVER BLANKS 



INC BUFFER 
POINTER 



'MOVE' THAT 
(GROUP FROM BUF- 
. FER TO STORAGE , 



PKUP 



COMPUTE NEW 
■TO 1 ' ADDRESS 
FOR MOVE 
COMMAND 



NO 




COMPUTE TOTAL 
OF BYTE COUNT 
OF MOVED 
CHARACTERS 



FLBK 



FILL LAST WORD 
WITH A BLANK 



ODD 




EVEN 



LKCP 



COMPUTE WORD 
ADDRESS OF NEXT 
AVAILABLE 
LOCATION 



EXIT 



RESET END RECORD 
SWITCH 



PUT IN LINK 
ADDRESS LOCATION 
TO POINT TO NEXT 
STRING 



PAGE 20 



DCOM 



DECOMPRESS TEXT, IF 
PLACED IN PUNCH BUFFER, 
PUNCH-OUT 



COMPUTE BYTE 
ADDRESS OF PUNCH 
BUFFER, PUT IN 
MOVE CO MMAND 

i 



GET BYTE 
ADDRESS OF TEXT 
FROM XSV PUT IN 
IXR 




INCREMENT 
IXR 



GET A BYTE 
OF TEXT 



DECODE AND 
ADD TO 
BLANK COUNTER 



YES 




GET BUFFER AD- 
DRESS, ADD BLANK 
COUNT TO IT, STORE 
IN MOVE COMMAND 



BUFFER IS FULL 
OF BLANKS, NOT 
NECESSARY TO 
MOVE BLANK INTO 
IT 
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COMPUTE MOVE 
COUNT 



SAVE IXR 



■MOVE' TEXT 
TO BUFFER 



RESTORE IXR 



COMPUTE NEXT 
LOCATION IN 
BUFFER TO MOVE 
TO 



& 



NO 




PLACE A C/R AT 
END OF TEXT IN 
BUFFER 



COMPUTE PUNCH 
COUNT 



■PO' 

PUNCH THE 
BUFFER 



INCREMENT THE 

STATEMENT 

COUNTER 



'RIO' CONVERT 
STATEMENT NO. 
TO ASCII 




EXIT 
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PUNCH OUT SUBROUTINE 




\PUNCH STATEMENT / 
NUMBER; / 

\SPECIAL FORMAT/ 



PUNCH BUFFER, 

REGULAR 

FORMAT 



SPECIAL FORMAT PUNCHES 
WITHOUT C/R OR /F, THIS 
PLACES THE STATEMENT 
NUMBER BETWEEN THE 
RECORDS. 
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RIO 




RM10 IS CALLED AS MANY 
TIMES AS CHARACTERS ARE 
NEEDED. THE FIRST CALL 
GETS THE UNITS CHARACTER, 
THE NEXT THE HUNDREDS 
AND SO ON. 



STORE THE 
CONVERTED CHAR- 
ACTERS IN THE 
BUNCH BUFFER 



RM10 



R.M10 CONVERTS 
BINARY INTEGERS 
TO ASCII CHARAC- 
TERS BY MULTIPLY- 
ING BY 1/10. MORE 
EXACTLY BY ADDING 
AND SHIFTING SUC- 
CESSIVE APPROXI- 
MATIONS OF 1/10. 
THE 1st TIME RM10 
IS CALLED IT PUTS 
THE LOW ORDER 
CHARACTER IN THE 
DATA CELL 1 JLLOW- 
ING THE CALL 
STATEMENT, LEAV- 
ING THE REMAINDER 
IN ACR. RM10 CAN 
NOW BE CALLED 
AGAIN AS MANY 
TIMES AS NEEDED. 
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READ A RECORD 



SORD 



L 



FILL 1 
.FILL BUFFER WITH 
\ BLANKS / 



DOIO, 
READ A RECORD 



COMPUTE BYTE 
ADDRESS OF THE 
BUFFER 




IDENTIFY END RECORDS, 
SYMBOLIC OR FORTRAN 
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ISEN 



RESET END 
SWITCH 




NO 



'DEBK' 
SKIP OVER 
BLANKS 




NO 



•GNC 

GET NEXT 
CHARACTER 




NO 



•GNC 

GET NEXT 

CHARACTER 




NO 



SET END SWITCH 
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FILL, FILLS BUFFER 
WITH WHATEVER 
CHARACTER IS NEEDED 




PICK UP CHARACTER 
TO FILL BUFFER WI 
WITH FROM CALL - 
ING PARAMETER 



STORE CHARACTER 
IN CONSECUTIVE 
LOCATIONS TILL 
COUNT IS ZERO 




GNC, GET NEXT 
CHARACTER 



GNC 



GET LOCATION OF 
THE ADDRESS OF 
THE NEXT BYTE 
IN THE BUFFER 



PICK UP THAT BYTE 
AND STORE IT IN 
CHR 



INCREMENT THE 
BYTE ADDRESS 
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DEBK, DE-BLANK, 
SCAN OVER BLANKS 



DEBK 



■ISB1I', IS CHAR 
BLANK 



NO 




EXIT 



YES 



GNC, GET 
.NEXT CHARACTER, 
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MOVE 
BYTES 



SUBROUTINE ] 
MOVE J 



PICK-UP FROM 
ADDRESS, TURN ON 
BIT ZERO, STORE 
IT IN 'FROM' 



PICK-UP TO 
ADDRESS TURN OFF 
BIT ZERO, STORE IT 
IN 'TO' 




PUT COUNT 
IN 
IXR 



DECREMENT 

THE 

COUNT 



IS 

COUNT 

NEGATIVE 



STORE 
IXR IN 
i N i 



NO 



EXIT 




YES 



PICK-UP 

'FROM' 

POINTER 



LOAD BYTE 

IT POINTS 

TO 



INCREMENT 
'FROM' POINTER 
STORE IT IN 'FROM' 



PICK UP 

■TO' 
POINTER 



STORE THE 
ACR AS PER 
PER THE TO 
POINTER 



INCREMENT 
THE 'TO' 
POINTER, STORE 
IT IN 'TO' 



PICK UP THE 
COUNT, "N" 
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ISIT SUBROUTINE 



Vj 



ISLT, 
IS LETTER 



ISDG, 
IS DIGIT 



ISBK, 
IS BLANK 



SAVE THE COMTENTS 
OF ACR 



INCREMENT 
RETURN ADDRESS 
IN THE DCR 



CHECK FOR THE 
CONDITEN 

INDICATED 




RESTORE 
THE ACR 



EXIT 
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